home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1999 June / PSL Volume 7 Number 6.iso / educa / win / lang_art / PPUNCH30.ZIP / DEMO.ZIP / PUNCH.EXE / 0 / RCDATA / TIMAIN / TIMAIN.txt < prev   
Text File  |  1998-03-18  |  4KB  |  112 lines
  1. object IMain: TIMain
  2.   Left = 206
  3.   Top = 146
  4.   Width = 435
  5.   Height = 300
  6.   BorderIcons = [biMinimize, biMaximize]
  7.   Caption = 'Import text file'
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Icon.Data = {<image000.ico>}
  13.   Position = poScreenCenter
  14.   Visible = True
  15.   OnActivate = FormActivate
  16.   OnClose = FormClose
  17.   OnCreate = FormCreate
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Panel1: TPanel
  21.     Left = 0
  22.     Top = 0
  23.     Width = 427
  24.     Height = 41
  25.     Align = alTop
  26.     TabOrder = 0
  27.     object BitBtn1: TBitBtn
  28.       Left = 8
  29.       Top = 8
  30.       Width = 75
  31.       Height = 25
  32.       Hint = 'Import text from a file'
  33.       Caption = '&Import'
  34.       Default = True
  35.       ParentShowHint = False
  36.       ShowHint = True
  37.       TabOrder = 0
  38.       OnClick = BitBtn1Click
  39.       Glyph.Data = {
  40.         76010000424D7601000000000000760000002800000020000000100000000100
  41.         04000000000000010000130B0000130B00000000000000000000000000000000
  42.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  43.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  44.         33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
  45.         FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
  46.         00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
  47.         F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
  48.         00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
  49.         F033777777777337F73309999990FFF0033377777777FFF77333099999000000
  50.         3333777777777777333333399033333333333337773333333333333903333333
  51.         3333333773333333333333303333333333333337333333333333}
  52.       NumGlyphs = 2
  53.     end
  54.     object BitBtn2: TBitBtn
  55.       Left = 168
  56.       Top = 8
  57.       Width = 75
  58.       Height = 25
  59.       Caption = '&Cancel'
  60.       TabOrder = 1
  61.       OnClick = BitBtn2Click
  62.       Kind = bkCancel
  63.     end
  64.     object ClipB: TBitBtn
  65.       Left = 88
  66.       Top = 8
  67.       Width = 75
  68.       Height = 25
  69.       Hint = 'Import text from Clipboard'
  70.       Caption = 'Clip&board '
  71.       Default = True
  72.       ParentShowHint = False
  73.       ShowHint = True
  74.       TabOrder = 2
  75.       OnClick = ClipBClick
  76.       Glyph.Data = {
  77.         76010000424D7601000000000000760000002800000020000000100000000100
  78.         04000000000000010000130B0000130B00000000000000000000000000000000
  79.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  80.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
  81.         FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
  82.         FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
  83.         FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
  84.         0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
  85.         9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
  86.         9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
  87.         99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
  88.         93337777FF777777733370000000073333333777777773333333}
  89.       NumGlyphs = 2
  90.     end
  91.   end
  92.   object RichEdit1: TRichEdit
  93.     Left = 0
  94.     Top = 41
  95.     Width = 427
  96.     Height = 232
  97.     Align = alClient
  98.     ReadOnly = True
  99.     TabOrder = 1
  100.   end
  101.   object OpenDialog1: TOpenDialog
  102.     FileEditStyle = fsEdit
  103.     Filter = 
  104.       'Text files (TXT)|*.txt|Documents (DOC)|*.doc|Rich Text Format (R' +
  105.       'TF)|*.rtf'
  106.     Options = [ofPathMustExist, ofFileMustExist]
  107.     Title = 'Import Text file'
  108.     Left = 392
  109.     Top = 8
  110.   end
  111. end
  112.